BBS in a Box 15/BBS in a box XV-2.iso/Files II/Multimedia/A-P/Net Game.sit/Net Game folder/Net Game/SR114M.DXR/00336_script main loop.ls

Text File | 1994-10-24 | 1.7 KB | 35 lines

on exitFrame
  global p_arrow_left, p_arrow_right, p_hand_open, p_menu, p_mouth_open, p_scribble, arrows_close, popped, kernel, kernel_on
  set the cursor of sprite 2 to -1
  set the cursor of sprite 10 to [p_hand_up, p_hand_up + 1]
  set the cursor of sprite 13 to [p_hand_up, p_hand_up + 1]
  set the cursor of sprite 14 to [p_hand_up, p_hand_up + 1]
  set the cursor of sprite 22 to [p_hand_up, p_hand_up + 1]
  set the cursor of sprite 25 to [p_hand_up, p_hand_up + 1]
  set the cursor of sprite 26 to [p_hand_up, p_hand_up + 1]
  set the cursor of sprite 27 to [p_hand_up, p_hand_up + 1]
  set the cursor of sprite 15 to [p_hand_open, p_hand_open + 1]
  set the cursor of sprite 16 to [p_hand_open, p_hand_open + 1]
  set the cursor of sprite 17 to [p_hand_open, p_hand_open + 1]
  set the cursor of sprite 18 to [p_hand_open, p_hand_open + 1]
  set the cursor of sprite 20 to [p_hand_open, p_hand_open + 1]
  set the cursor of sprite 23 to [p_hand_open, p_hand_open + 1]
  set the cursor of sprite 24 to [p_scribble, p_scribble + 1]
  set the cursor of sprite 19 to [p_mouth_open, p_mouth_open + 1]
  set the cursor of sprite 11 to [p_arrow_left, p_arrow_left + 1]
  set the cursor of sprite 12 to [p_arrow_right, p_arrow_right + 1]
  set the cursor of sprite 5 to [p_menu, p_menu + 1]
  if not popped then
    set the cursor of sprite kernel to [p_hand_up, p_hand_up + 1]
  else
    set the cursor of sprite kernel to [p_mouth_open, p_mouth_open + 1]
  end if
  set the cursor of sprite 28 to 0
  set the cursor of sprite 29 to 0
  set the cursor of sprite 30 to 0
  set the cursor of sprite 31 to 0
  set the cursor of sprite 36 to 0
  set the cursor of sprite 37 to 0
  pause()
end